(COMMENT BPS 55000. )
(ALLOC '(LIST 40000 40000 NIL))
(*RSET NIL)

(SETQ GC-OVERFLOW 'GC-OVERFLOW-DEMON)
(FASLOAD NDEMON FAS) 
;(FASLOAD CASEQ FAS DSK (AID RPG))
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
(FASLOAD NCOMPLR)
(FASLOAD GETMID)
(FASLOAD FASLAP QFS)
(FASLOAD EREAD)
(FASLOAD DIRECT)
(FASLOAD STRING)
(FASLOAD NCOREQ)
(FASLOAD STACK)
(DEFPROP CGOL (CGOL FAS DSK (MAC LSP)) AUTOLOAD)
(DEFPROP CGOLREAD (CGOL FAS DSK (MAC LSP)) AUTOLOAD)
(intern 'switchtable)
(INITIALIZE)
(FASLOAD MACROD)
(FASLOAD MATCH)
(*FEXPR EREAD)
(*FEXPR MAIL)
(SPECIAL ↑Q ↑R ↑W ↑V)
(FASLOAD LOADED)
 (SETSYNTAX 44. 500500 44.)		;Comma